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-- file bootnewcompiler.mesa 

-- last modified by Satterthwaite, April 5, 1978 3:33 PM 

DIRECTORY 

AUoFileDefs: FROM "altof iledefs". 
BFSDefs: FROM "bfsdefs", 
BinaryDefs: FROM "binarydef s'\ 
CompilerDefs: FROM "compilerdef s", 
ControlDefs: FROM "controldef s" , 
DiskDefs: FROM "diskdefs". 
ImageDefs: FROM "imagedefs", 
MiscDefs: FROM "miscdefs", 
SegmentDefs: FROM "segmentdefs". 
SystemDefs: FROM "systemdef s", 
TimeDefs: FROM "timedefs"; 

BootNewCompiler: PROGRAM 

IMPORTS BinaryDefs. BFSDefs, CompilerDefs, ImageDefs, MiscDefs, SegmentDefs, SystemDefs. TimeDefs 

SHARES SegmentDefs ■ 

BEGIN 

FileSegmentHandle: TYPE ■ SegmentDefs. FileSegmentHandle; 

CollectDiskAddresses: PROCEDURE ■ 

BEGIN OPEN SystemDefs, SegmentDefs, AUoFileDefs; 
ImageFile: FileHandle ■ 

LOOPHOLE[REGISTER[ControlOef S.Greg], 

ControlDefs .Global FrameHandle]. code segment. file; 
DAs: DESCRIPTOR FOR ARRAY OF vDA; 
maxunknown, maxknown: CARDINAL +- FIRST[CARDINAL3; 
minunknown: CARDINAL <- LAST[CARDINAL]; 
maxknownDA: vDA; 

DisplayHead: POINTER TO WORD = LOOPHOLE[420B] ; 
DisplaylnterruptWord: POINTER TO WORD « L00PH0LE[421B] ; 
saveDisplay, saveDiw: WORD; 
diskrequest: DiskDef s .DiskRequest; 
bufseg, DAseg: DataSegmentHandle; 

FindEnds: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

WITH s: seg SELECT FROM 
disk -> 

IF s.file = ImageFile AND s. hint. da = eofDA THEN 
BEGIN 

maxunknown <- MAX[maxunknown.s.base]; 
minunknown <- MIN[minunknown .s.base]; 
END; 
ENDCASE; 
RETURN[FALSE]; 
END; 
FindKnown: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

WITH s: seg SELECT FROM 
disk ■> 

IF s.file * ImageFile AND s. hint. da ^ eofDA AND s.base < minunknown 
AND s.base > maxknown THEN 

BEGIN maxknown <- s.base; maxknownDA <- s. hint. da END; 
ENDCASE; 
RETURN[FALSE]; 
END; 
PlugDA: PROCEDURE [seg: FileSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN 

WITH s: seg SELECT FROM 
disk «> 

IF s.file » ImageFile AND s. hint. da « eofDA AND 
s.base IN (maxknown. .maxunknown] THEN 
SegmentDefs.SetFileSegmentDA[6s,DAs[ s.base]]; 
ENDCASE; 
RETURN[FALSE]; 
END; 

saveDisplay <- DisplayHeadt; 
saveDiw ^ DisplaylnterruptWordt; 
DisplayHeadt ♦- DisplaylnterruptWordt 4- 0; 
[] <- EnumerateFileSegments[FindEnds]; 
[] <- EnumerateFileSegments[FindKnown]; 
bufseg <- NewDataSegment[Def aul tBase, 1]; 
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DAseg <- N0wDataSegment[ 

DefaultBase, PagesForWor ds[maxun known -maxknown+a]]; 
DAs <- DESCRIPTOR[DataSegmentAddress[DAseg]-(maxknown-l) ,maxunknown+2]; 
diskrequest ^ DiskDefs.DiskRequest [ 

ca: DataSegmentAddressCbufseg], 

fixedCA: TRUE, 

da: @DAs[0]. 

fp: eimageFile.fp, 

firstPage: maxknown, 

lastPage: maxunknown, 

action: ReadD, 

lastAction: ReadD, 

signalCheckError: FALSE. 

option: update[c1eanup: BFSDef s .GetNextDA]]; 
MiscDefs.SetBlock[0DAs[maxknown-l],f ininDA,maxunknown-fnaxknown+3]; 
DAs[maxknown] <- maxknownDA; 

[] ^ BFSDefs.ActOnPages[LOOPHOLE[0diskrequest]]; -- we know it is an Update diskrequest 
[] <r EnumerateFi1eSegments[PlugDA]; 
Del eteDataSegment[ DAseg]; 
DeleteDataSegment[bufseg]; 
DisplayHeadt 4- saveDisplay; 
DisplaylnterruptWordt 4- saveDiw; 
RETURN; 
END; 

parseseg, errorseg: SegmentDefs.FileSegmentHandle; 

time: STRING <- SystemDef s.AnocateHeapString[18]; 

TimeDefs.AppendDayTime[time, TimeDef s.UnpackDT[ImageDef s.Image\/ersion[] . time]]; 
time«1ength <- time. length - 3; 

[parseseg, ] ♦- MiscDef s.DestroyFakeModule[LOOPHOLE[BinaryDef s.MesaTab]] ; 
[errorseg, ] <- MiscDef s.DestroyFakeModule[LOOPHOLE[BinaryDefs.ErrorTab]]; 

START CompilerDefs.Control[time, REGISTER[ControlDef s.Greg], parseseg, errorseg]; 

STOP; 

CollectDiskAddresses[]; 

RESTART CompilerDefs. Control ; 

END. 



